home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / TMCM Software and Labs.sit / Software for TMCM 7_95 / Files for Lab 9 / Other Examples / random arcs < prev    next >
Text File  |  1994-05-10  |  163b  |  7 lines

  1. {A cute random walk.}
  2.  
  3. loop
  4.    arc(0.5,90*(randomint(5-3)))
  5.    face(90*randomint(4))
  6.    exit if xcoord > 30 or xcoord < -30 or ycoord > 30 or ycoord < -30
  7. end loop